home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilgraf / newicndt.lha / NewIconDT / Sources / TestProximity.asm < prev   
Assembly Source File  |  1996-10-24  |  1KB  |  67 lines
  1.  
  2. ******************************************************************************
  3. *
  4. * NewIcon Datatype
  5. *
  6. * Written by Pascal Hurni
  7. *
  8. ******************************************************************************
  9. * TestProximity.asm
  10. *
  11. *
  12.  
  13.     XDEF    _TestProximity
  14.  
  15.  
  16.     SECTION    Code
  17.  
  18. ;---------------------------------------------------------------;
  19. ; Each gun is 12-bit right justified : $0XXX
  20. ;
  21. ; Inputs:    D1    First R gun
  22. ;        D2    First G gun
  23. ;        D3    First B gun
  24. ;        D5    Second R gun
  25. ;        D6    Second G gun
  26. ;        D7    Second B gun
  27. ;
  28. ; Outputs:    D0    Proximity factor
  29. ;
  30. ;---------------------------------------------------------------;
  31.  
  32. _TestProximity
  33.  
  34.         movem.w    D2-D3/D5-D7,-(SP)
  35.  
  36.         sub.w    D1,D5
  37.         bpl.b    LB_5714
  38.         neg.w    D5
  39. LB_5714        sub.w    D2,D6
  40.         bpl.b    LB_571A
  41.         neg.w    D6
  42. LB_571A        sub.w    D3,D7
  43.         bpl.b    LB_5720
  44.         neg.w    D7
  45. LB_5720        cmp.w    D6,D5
  46.         bgt.b    LB_5726
  47.         exg    D5,D6
  48. LB_5726        cmp.w    D7,D5
  49.         bgt.b    LB_572C
  50.         exg    D7,D5
  51. LB_572C        cmp.w    D7,D6
  52.         bgt.b    LB_5732
  53.         exg    D7,D6
  54. LB_5732        lsr.w    #1,D6
  55.         lsr.w    #2,D7
  56.         moveq    #$00,D0
  57.         move.w    D5,D0
  58.         add.w    D6,D0
  59.         add.w    D7,D0
  60.  
  61.         movem.w    (SP)+,D2-D3/D5-D7
  62.  
  63.         rts
  64.  
  65.     END
  66.  
  67.